home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / XPK / User / Install < prev    next >
Encoding:
Text File  |  1997-05-22  |  22.7 KB  |  622 lines
  1. ; XpkMaster distribution Installer script.
  2. ; © Dirk Stöcker <stoecker@rcs.urz.tu-dresden.de>
  3. ; $VER: XpkMasterInstall 1.10 (22.05.97)
  4.  
  5. ; Text-Changes:
  6. ; 1.10    WHAT_C
  7.  
  8. ; Translations, which equal english texts are not needed, as not used texts
  9. ; get english defaults!
  10.  
  11. (set #catalog 0)
  12.  
  13. (set #i 0)
  14. (while (set #thisfile (select #i "deutsch" "français" "italiano" "norsk"
  15. "polski" "srpski" "svenska" "ÃeÓtina" ""))
  16.   (
  17.     (set #i (+ #i 1))
  18.     (if (= @language #thisfile) (set #catalog #i))
  19.   )
  20. )
  21.  
  22. ; ************************** English texts ******************************
  23.  
  24. (set #GOINGIN
  25.   (cat "\n\nWelcome to XpkMaster distribution installation system.\n\n"
  26.        "All sub archives you want to install have to be unpacked to "
  27.        "one directory. This directory is the parent of the one, you "
  28.        "have started the script of!\n\nMake clear you did this!"
  29.   )
  30. )
  31. (set #INSTALLERVERSION "You need at least version 42.9 of Installer.")
  32. (set #XPKMASTER_LIB  "Update xpkmaster.library when needed.")
  33. (set #INSTALL_LIB    "Update sub library %s.")
  34. (set #WHAT_STUFF     "What programs do you like to install ?")
  35. (set #WHAT_LANGUAGE  "What language files do you like to install?")
  36. (set #WHAT_PROMPT    "What parts of the distribution do you like to install?")
  37. (set #WHAT_LIBS      "What sub libraries do you like to install?")
  38. (set #WHAT_DOCS      "\n\n\n\n\nInstall documentation?")
  39. (set #WHAT_PREFS     "\n\n\n\n\nInstall Preferences program?")
  40. (set #WHAT_PROCESSOR "\n\n\n\n\nInstall MC68020 versions of some libraries?")
  41. (set #WHAT_DEVELOP   "What parts of developer dir do you need?")
  42. (set #WHAT_C
  43.   (cat "Choose the parts you need for your C compiler. The files are "
  44.         "automatically copied into correct sub directories."
  45.   )
  46. )
  47. (set #CRYPT_SOURCE   "\n\n\n\n\nInstall cryption lib sources?")
  48. (set #STARTUP         "\n\n\n\n\nAdd XpkMasterPrefs call to startup file.")
  49. (set #PREFSFILE         "\n\n\n\n\nInstall preferences file?")
  50. (set #ASK_PATH
  51.   (cat "Select the path where %s should be installed. A drawer "
  52.        "»%s« will be created automatically, when not existing."
  53.   )
  54. )
  55. (set #ASK_PATH2     "Select the path where %s should be installed.")
  56. (set #WHAT_USER     "User part")
  57. (set #WHAT_DEVELOP  "Developer part")
  58. (set #WHAT_CRYPT    "cryption libraries")
  59. (set #WHAT_SOURCE   "sources and examples")
  60. (set #DEV_AUTODOCS  "Autodocs")
  61. (set #DEV_HOTHELP   "HotHelp files")
  62. (set #DEV_FD        "FD files")
  63. (set #DEV_ASM        "ASM includes")
  64. (set #DEV_C        "C/C++ includes")
  65. (set #DEVT_AUTODOCS "the autodocs")
  66. (set #DEVT_FD_FILES "the FD files")
  67. (set #DEVT_ASM      "the ASM includes")
  68. (set #DEVT_C        "the C/C++ includes")
  69. (set #DEVT_HOTHELP  "the HotHelp files")
  70. (set #CRP_SOURCES   "the sources")
  71. (set #SRC_SRC_A_EXA "the sources and examples")
  72. (set #DEVC_PRAGMA   "pragma files")
  73. (set #DEVC_GCC      "GCC inline files")
  74. (set #DEVC_REDIRECT "redirect files for older code")
  75. (set #DEVC_SAS      "SAS pragmas redirect (not needed)")
  76. (set #DEVC_PROTO    "proto files")
  77.  
  78. ; ************************** German texts *******************************
  79.  
  80. (if (= #catalog 1) (
  81. (set #GOINGIN
  82.   (cat "\n\nWillkommen zum XpkMaster Installationssystem.\n\n"
  83.        "Alle Teilarchive, die Sie installieren wollen, müssen in ein "
  84.        "Verzeichnis entpackt werden. Dieses ist das vorhergehende "
  85.        "Verzeichnis zu dem, aus dem Sie dieses Script gestartet haben.\n\n"
  86.        "Stellen Sie sicher, das richtig getan zu haben!"
  87.   )
  88. )
  89. (set #INSTALLERVERSION "Sie benötigen mindestens Version 42.9 des Installer Programmes.")
  90. (set #XPKMASTER_LIB  "Erneuere xpkmaster.library wenn nötig.")
  91. (set #INSTALL_LIB    "Erneuere Sublibrary %s.")
  92. (set #WHAT_STUFF     "Welche Programme wollen Sie installieren?")
  93. (set #WHAT_LANGUAGE  "Welche Sprachkataloge wollen Sie installieren?")
  94. (set #WHAT_PROMPT    "Welche Teile von XPK wollen Sie installieren?")
  95. (set #WHAT_LIBS      "Welche Sublibraries wollen Sie installieren?")
  96. (set #WHAT_DOCS      "\n\n\n\n\nDokumentation installieren?")
  97. (set #WHAT_PREFS     "\n\n\n\n\nVoreinsteller (Preferences) Programm installieren?")
  98. (set #WHAT_PROCESSOR "\n\n\n\n\nMC68020 Versionen einiger Libraries installieren?")
  99. (set #WHAT_DEVELOP   "Welche Teile des Entwickler Pakets benötigen Sie?")
  100. (set #WHAT_C         "Wählen Sie die Teile, die Sie für Ihren C Compiler benötigen.")
  101. (set #WHAT_C
  102.   (cat "Wählen Sie die Teile, die Sie für Ihren C Compiler benötigen. Die"
  103.        "Dateien werden automatisch in die nötigen Unterverzeichnisse verteilt."
  104.   )
  105. )
  106. (set #CRYPT_SOURCE   "\n\n\n\n\nQuellkode der Verschlüsselungslibraries installieren?")
  107. (set #STARTUP         "\n\n\n\n\nErgänze XpkMasterPrefs Programmaufruf zur Startupdatei.")
  108. (set #PREFSFILE         "\n\n\n\n\nInstalliere Voreinsteller (Preferences) Datei?")
  109. (set #ASK_PATH
  110.   (cat "Wählen Sie den Pfad, wo %s installiert werden soll. Ein Verzeichnis "
  111.        "»%s« wird automatisch erstellt, falls es noch nicht existiert."
  112.   )
  113. )
  114. (set #ASK_PATH2     "Wählen Sie den Pfad, wo %s installiert werden soll.")
  115. (set #WHAT_USER     "Anwender Archiv")
  116. (set #WHAT_DEVELOP  "Entwickler Archiv")
  117. (set #WHAT_CRYPT    "Verschlüsselungslibraries")
  118. (set #WHAT_SOURCE   "Quellkodes und Beispiele")
  119. (set #DEV_HOTHELP   "HotHelp-Dateien")
  120. (set #DEV_FD        "FD-Dateien")
  121. (set #DEV_ASM        "ASM Includes")
  122. (set #DEV_C        "C/C++ Includes")
  123. (set #DEVT_AUTODOCS "die Autodocs")
  124. (set #DEVT_FD_FILES "die FD-Dateien")
  125. (set #DEVT_ASM      "die ASM Includes")
  126. (set #DEVT_C        "die C/C++ Includes")
  127. (set #DEVT_HOTHELP  "die HotHelp-Dateien")
  128. (set #CRP_SOURCES   "die Quellkodes")
  129. (set #SRC_SRC_A_EXA "die Quellkodes und Beispiele")
  130. (set #DEVC_PRAGMA   "pragma Dateien")
  131. (set #DEVC_GCC      "GCC inline Dateien")
  132. (set #DEVC_REDIRECT "Umleitungsdateien für älteren Kode")
  133. (set #DEVC_SAS      "SAS pragmas Umleitungsdateien (nicht benötigt)")
  134. (set #DEVC_PROTO    "proto Dateien")
  135. ))
  136.  
  137. ; ************************** French texts *******************************
  138.  
  139. (if (= #catalog 2) (
  140. (set #GOINGIN
  141.   (cat "\n\nBienvenue dans le système d'installation de xpkMaster.\n\n"
  142.        "Toutes les sous archives que vous voulez installer doivent être "
  143.        "décompressées dans un répertoire. Ce répertoire est le parent de "
  144.        "celui duquel vous avez lancé ce script !\n\n"
  145.        "Assurez vous que vous ayez fait cela !"
  146.   )
  147. )
  148. (set #INSTALLERVERSION "Vous avez besoin de Installer version 42.9 au minimum.")
  149. (set #XPKMASTER_LIB  "Mise à jour de xpkmaster.library lorsque c'est nécessaire.")
  150. (set #INSTALL_LIB    "Mise à jour de la sous bibliothèque %s.")
  151. (set #WHAT_STUFF     "Quels programmes voulez vous installer ?")
  152. (set #WHAT_LANGUAGE  "Quelles fichiers de langue voulez vous installer ?")
  153. (set #WHAT_PROMPT    "Quelles parties de la distribution voulez vous installer ?")
  154. (set #WHAT_LIBS      "Quelles sous bibliothèques voulez vous installer ?")
  155. (set #WHAT_DOCS      "\n\n\n\n\nInstaller la documentation ?")
  156. (set #WHAT_PREFS     "\n\n\n\n\nInstaller le programme de préférences ?")
  157. (set #WHAT_PROCESSOR "\n\n\n\n\nInstaller la version MC68020 de quelques bibliothèques ?")
  158. (set #WHAT_DEVELOP   "Quelles parties du répertoire développeur voulez vous ?")
  159. (set #WHAT_C         "Choisissez les parties nécessaires pour votre compilateur C.")
  160. (set #CRYPT_SOURCE   "\n\n\n\n\nInstaller les sources des bibliothèques de cryptage ?")
  161. (set #STARTUP         "\n\n\n\n\nAjouter l'appel XpkMasterPrefs au fichier de démarrage.")
  162. (set #ASK_PATH
  163.   (cat "Sélectionnez le chemin où %s devrait être installé. Un répertoire "
  164.        "« %s » sera créé automatiquement, s'il n'existe pas."
  165.   )
  166. )
  167. (set #ASK_PATH2     "Sélectionner le chemin où %s devrai(en)t être installé.")
  168. (set #WHAT_USER     "Partie utilisateur")
  169. (set #WHAT_DEVELOP  "Partie développeur")
  170. (set #WHAT_CRYPT    "Bibliothèques de cryptage")
  171. (set #WHAT_SOURCE   "Sources et exemples")
  172. (set #DEV_HOTHELP   "Fichiers HotHelp")
  173. (set #DEV_FD        "Fichiers FD")
  174. (set #DEV_ASM        "Includes ASM")
  175. (set #DEV_C        "Includes C/C++")
  176. (set #DEVT_AUTODOCS "les autodocs")
  177. (set #DEVT_FD_FILES "les fichiers fd")
  178. (set #DEVT_ASM      "les includes ASM")
  179. (set #DEVT_C        "les includes C/C++")
  180. (set #DEVT_HOTHELP  "les fichiers HotHelp")
  181. (set #CRP_SOURCES   "les sources")
  182. (set #SRC_SRC_A_EXA "les sources et exemples")
  183. (set #DEVC_PRAGMA   "les fichiers pragma")
  184. (set #DEVC_GCC      "les fichiers inline GCC")
  185. (set #DEVC_REDIRECT "les fichiers de redirection pour le code plus ancien")
  186. (set #DEVC_SAS      "les pragmas de redirection SAS (pas nécessaire)")
  187. (set #DEVC_PROTO    "fichiers proto")
  188. ))
  189.  
  190. ; ************************** Italiano texts *****************************
  191.  
  192. (if (= #catalog 3) (
  193. (set #GOINGIN
  194.   (cat "\n\nBenvenuto nel sistema di installazione della distribuzione XpkMaster.\n\n"
  195.        "Tutti i sotto archivi che desideri installare devono essere decompressi in"
  196.        "una cartella. Questa cartella è la precedente a quella da cui tu hai fatto"
  197.        "partire questo script!\n\nAssicurati di averlo fatto!"
  198.   )
  199. )
  200. (#INSTALLERVERSION "Necessiti come minimo della versione 42.9 dell' Installer.")
  201. (#XPKMASTER_LIB  "Aggiorna l' xpkmaster.library quando necessario.")
  202. (#INSTALL_LIB    "Aggiorna la sotto libreria %s.")
  203. (#WHAT_STUFF     "Che programmi desideri installare ?")
  204. (#WHAT_LANGUAGE  "Che file di linguaggio desideri installare?")
  205. (#WHAT_PROMPT    "Che parti della distribuzione desideri installare?")
  206. (#WHAT_LIBS      "Che sotto-librerie desideri installare?")
  207. (#WHAT_DOCS      "\n\n\n\n\nInstallo la documentazione?")
  208. (#WHAT_PREFS     "\n\n\n\n\nInstallo il programma di Preferenze ?")
  209. (#WHAT_PROCESSOR "\n\n\n\n\nInstallo le versioni MC68020 di alcune librerie?")
  210. (#WHAT_DEVELOP   "Di che parti della cartella per sviluppatore hai bisogno?")
  211. (#WHAT_C     "Scegli le parti che ti servono per il tuo compilatore C.")
  212. (#CRYPT_SOURCE   "\n\n\n\n\nInstallo i sorgenti della libreria di crittografia?")
  213. (#STARTUP         "\n\n\n\n\nAggiungo la chiamata a XpkMasterPrefs nel file di startup.")
  214. (set #ASK_PATH
  215.   (cat "Seleziona il percorso in cui %s dovra' essere installato. Un cassetto "
  216.        "»%s« verra' creato automaticamente, se non esiste gia'."
  217.   )
  218. )
  219. (#ASK_PATH2     "Seleziona il percorso in cui %s dovra' essere installato.")
  220. (#WHAT_USER     "Parte Utente")
  221. (#WHAT_DEVELOP  "Parte Sviluppatore")
  222. (#WHAT_CRYPT    "Librerie di crittografia")
  223. (#WHAT_SOURCE   "sorgenti ed esempi")
  224. (#DEV_HOTHELP   "File di Aiuto in linea")
  225. (#DEVT_AUTODOCS "gli autodocs")
  226. (#DEVT_FD_FILES "i file fd")
  227. (#DEVT_ASM      "gli includes ASM")
  228. (#DEVT_C    "gli includes C/C++")
  229. (#DEVT_HOTHELP  "I file di Aiuto in linea")
  230. (#CRP_SOURCES   "I sorgenti")
  231. (#SRC_SRC_A_EXA "i sorgenti e gli esempi")
  232. (#DEVC_PRAGMA   "I file pragma")
  233. (#DEVC_REDIRECT "redirigo i file per il vecchio codice")
  234. (#DEVC_SAS      "redirigo i SAS pragmas (non necessario)")
  235. ))
  236.  
  237. ; ************************** Serbian texts ******************************
  238.  
  239. (if (= #catalog 6) (
  240. (set #GOINGIN
  241.   (cat "\n\nDobro doçli u instalacioni sistem XpkMaster paketa.\n\n"
  242.        "Sve dodatne arhive treba da se raspakuju u jedan direktorijum. "
  243.        "To je direkorijum prethodan onome iz koga se starovali "
  244.        "instalaciju!\n\n"
  245.        "Budite sigurni da ste to uradili!"
  246.   )
  247. )
  248. (set #INSTALLERVERSION "Treba vam najmanje verzija 42.9 Instalera.")
  249. (set #XPKMASTER_LIB  "Osve§i xpkmaster.library kada je porebno.")
  250. (set #INSTALL_LIB    "Osve§i pod biblioteke %s.")
  251. (set #WHAT_STUFF     "Koje programe §elite da instalirate?")
  252. (set #WHAT_LANGUAGE  "Koje jeziŸke fajlove §elite da instalirate?")
  253. (set #WHAT_PROMPT    "Koje delove paketa §elite da instalirate?")
  254. (set #WHAT_LIBS      "Koje pod biblioteke §elite da instalirate?")
  255. (set #WHAT_DOCS      "\n\n\n\n\nDa instaliram dokumentaciju?")
  256. (set #WHAT_PREFS     "\n\n\n\n\nDa instaliram program za podeçavanja?")
  257. (set #WHAT_PROCESSOR "\n\n\n\n\nDa instaliram MC68020 verzije nekih biblioteka?")
  258. (set #WHAT_DEVELOP   "Koji delovi programerskog direktorijuma vam trebaju?")
  259. (set #WHAT_C         "Odaberite delove koji vam trebaju za C kompajler.")
  260. (set #CRYPT_SOURCE   "\n\n\n\n\nDa instaliram izvorni kod biblioteka za kriptovanje?")
  261. (set #STARTUP         "\n\n\n\n\nDa dodam poziv XpkMasterPrefs-u u startap.")
  262. (set #ASK_PATH
  263.   (cat "Odaberite path gde %s treba da se instalira. Direkorijum "
  264.        "»%s« †e automatski biti napravljen, ako ne postoji."
  265.   )
  266. )
  267. (set #ASK_PATH2     "Odaberite path gde %s treba da se instalira.")
  268. (set #WHAT_USER     "KorisniŸki deo")
  269. (set #WHAT_DEVELOP  "Programerski deo")
  270. (set #WHAT_CRYPT    "biblioteke za çifrovanje")
  271. (set #WHAT_SOURCE   "izvorni kod i primeri")
  272. (set #DEV_AUTODOCS  "Autodokovi")
  273. (set #DEV_HOTHELP   "HotHelp fajlovi")
  274. (set #DEV_FD        "FD fajlovi")
  275. (set #DEV_ASM        "ASM inkludovi")
  276. (set #DEV_C        "C/C++ inkludovi")
  277. (set #DEVT_AUTODOCS "autodokove")
  278. (set #DEVT_FD_FILES "fd fajlove")
  279. (set #DEVT_ASM      "ASM inkludove")
  280. (set #DEVT_C        "C/C++ inkludove")
  281. (set #DEVT_HOTHELP  "HotHelp faljove")
  282. (set #CRP_SOURCES   "izvorni kod")
  283. (set #SRC_SRC_A_EXA "izvorni kod i primere")
  284. (set #DEVC_PRAGMA   "pragma fajlove")
  285. (set #DEVC_GCC      "GCC inlajn fajlove")
  286. (set #DEVC_REDIRECT "redirekt fajlove za stariji kod")
  287. (set #DEVC_SAS      "SAS pragma redirekt (nije potrebno)")
  288. (set #DEVC_PROTO    "proto fajlove")
  289. ))
  290.  
  291. ; ***************************** Czech texts *****************************
  292.  
  293. (if (= #catalog 8) (
  294. (set #GOINGIN
  295.   (cat "\n\nVÉtejte pÒi instalaci syst×mu XpkMaster.\n\n"
  296.        "VÓechny podpÊrn× archÉvy, kter× chcete nainstalovat musÉ bÙt "
  297.        "rozbaleny do jednoho adresÁÒe. Tento adresÁÒ je o jeden vÙÓe "
  298.        "neÚ ten, ze kter×ho jste spustili instalaÃnÉ skript!\n\n"
  299.        "UjistÅte se, Úe jste tak uÃinili!"
  300.   )
  301. )
  302. (set #INSTALLERVERSION "Je vyÚadovÁn Installer alespoΠve verzi 42.9.")
  303. (set #XPKMASTER_LIB    "NovÁ verze knihovny xpkmaster.library.")
  304. (set #INSTALL_LIB      "NovÁ verze podpÊrn× knihovny %s.")
  305. (set #WHAT_STUFF       "Kter× programy si pÒejete nainstalovat?")
  306. (set #WHAT_LANGUAGE    "Kter× lokalizaÃnÉ katalogy si pÒejete nainstalovat?")
  307. (set #WHAT_PROMPT      "Kter× ÃÁsti syst×mu Xpk si pÒejete nainstalovat?")
  308. (set #WHAT_LIBS        "Kter× podpÊrn× knihovny si pÒejete nainstalovat?")
  309. (set #WHAT_DOCS        "\n\n\n\n\nInstalovat dokumentaci?")
  310. (set #WHAT_PREFS       "\n\n\n\n\nInstalovat NastavenÉ pro Xpk?")
  311. (set #WHAT_PROCESSOR   "\n\n\n\n\nInstalovat verze knihoven pro MC68020?")
  312. (set #WHAT_DEVELOP     "Kter× ÃÁsti adresÁÒe pro vÙvojÁÒe si pÒejete nainstalovat?")
  313. (set #WHAT_C            "Volba souborÊ pro VÁÓ kompilÁtor C.")
  314. (set #CRYPT_SOURCE     "\n\n\n\n\nInstalovat zdrojov× texty ÓifrovacÉch knihoven?")
  315. (set #STARTUP            "\n\n\n\n\nSpouÓtÅt XpkMasterPrefs automaticky pÒi startu.")
  316. (set #ASK_PATH
  317.   (cat "Volba cesty, kde by mÅl bÙt %s nainstalovÁn. AdresÁÒ "
  318.        "»%s« bude automaticky vytvoÒen, pokud neexistuje."
  319.   )
  320. )
  321. (set #ASK_PATH2     "Volba cesty kde by mÅl bÙt %s nainstalovÁn.")
  322. (set #WHAT_USER     "ãÁst pro uÚivatele")
  323. (set #WHAT_DEVELOP  "ãÁst pro vÙvojÁÒe")
  324. (set #WHAT_CRYPT    "ÓifrovacÉ knihovny")
  325. (set #WHAT_SOURCE   "zdrojov× texty a pÒÉklady")
  326. ))
  327.  
  328. ; ************************* global procedures ***************************
  329.  
  330. (procedure P_copylib lib pathadd path
  331.   (
  332.     (set #libr (cat "xpk" lib ".library"))
  333.     (copylib (prompt (#INSTALL_LIB libr))
  334.       (help @copylib-help)
  335.       (source (cat path "Libs" pathadd "/compressors/" libr))
  336.       (dest "LIBS:compressors/")
  337.       (confirm)
  338.     )
  339.   )
  340. )
  341.   
  342. ; ********************* xpk_User archive install *************************
  343.  
  344. (procedure P_install_user
  345.   (
  346.     (copylib (prompt #XPKMASTER_LIB)
  347.       (help @copylib-help)
  348.       (source (cat (if (< #OS_version 37) "Libs_1.3/" "Libs/") "xpkmaster.library"))
  349.       (dest "LIBS:")
  350.       (confirm)
  351.     )
  352.  
  353.     (set #p
  354.       (askoptions
  355.         (prompt #WHAT_LIBS)
  356.         (help @askoptions-help)
  357.         (choices "CBR0" "DLTA" "DUKE" "FAST" "FRLE" "HUFF" "IMPL" "NONE"
  358.           "NUKE" "RLEN" "SHRI" "SMPL" "HFMN" "MASH" "RAKE" "SQSH")
  359.         (default 4294967295)
  360.       )
  361.     )
  362.  
  363.     (set #q (if (IN #p 12 13 14 15)
  364.       (askbool
  365.         (prompt #WHAT_PROCESSOR)
  366.         (help @askbool-help)
  367.         (default 0)
  368.       ))
  369.     )
  370.  
  371.     (set #n 0)
  372.     (while (set #thisfile (select #n "CBR0" "DLTA" "DUKE" "FAST" "FRLE"
  373.       "HUFF" "IMPL" "NONE" "NUKE" "RLEN" "SHRI" "SMPL" ""))
  374.       (
  375.         (if (IN #p #n) (P_copylib #thisfile "" ""))
  376.         (set #n (+ #n 1))
  377.       )
  378.     )
  379.  
  380.     (set #i 0)
  381.     (while (set #thisfile (select #i "HFMN" "MASH" "RAKE" "SQSH" ""))
  382.       (
  383.         (if (IN #p (+ #n #i))
  384.           (P_copylib #thisfile (if #q "_68020+" "") ""))
  385.         (set #i (+ #i 1))
  386.       )
  387.     )
  388.  
  389.     (copyfiles
  390.       (source "C/")
  391.       (dest "C:")
  392.       (prompt #WHAT_STUFF)
  393.       (help @askoptions-help)
  394.       (choices "xDir" "xQuery" "xType" (if (>= #OS_version 37) "xPack" "xPK")
  395.       (if (>= #OS_version 37) "xBench") "xLoadSeg" "xScan" "xUP")
  396.       (confirm)
  397.     )
  398.  
  399.     (set #n (if (>= #OS_version 37)
  400.       (askbool
  401.         (prompt #WHAT_PREFS)
  402.         (help @askbool-help)
  403.         (default 0)
  404.       )
  405.     ))
  406.  
  407.     (if #n (
  408.       (copyfiles
  409.         (source "Prefs/")
  410.         (dest "SYS:Prefs/")
  411.         (choices "XpkMaster")
  412.         (infos)
  413.       )
  414.       (copyfiles (source "C/") (dest "C:") (choices "XpkMasterPrefs"))
  415.       (startup "XpkMasterPrefs" (prompt #STARTUP) (help @startup-help)
  416.         (command "Run >NIL: XpkMasterPrefs"))
  417.       (copyfiles (source "EnvArc/") (dest "ENVARC:") (prompt #PREFSFILE)
  418.       (help @copylib-help) (choices "xpkmaster.prefs") (confirm))
  419.     ))
  420.  
  421.     (if (>= #OS_version 37)(
  422.       (set #p
  423.         (askoptions
  424.           (prompt #WHAT_LANGUAGE)
  425.           (help @askoptions-help)
  426.           (choices "deutsch" "français" "italiano" "norsk" "polski"
  427.             "srpski" "svenska" "ãeÓtina")
  428.           (default #catalog)
  429.         )
  430.       )
  431.  
  432.       (set #i 0)
  433.       (while (set #thisfile (select #i "deutsch" "français" "italiano"
  434.         "norsk" "polski" "srpski" "svenska" "ãeÓtina" ""))
  435.       (
  436.         (set #thisfile (tackon "catalogs/" #thisfile))
  437.         (if (IN #p #i)(
  438.           (copyfiles (source #thisfile)
  439.             (dest (tackon "LOCALE:" #thisfile))
  440.             (pattern "xpkmaster.catalog")
  441.       )
  442.           (if #n (copyfiles (source #thisfile)
  443.             (dest (tackon "LOCALE:" #thisfile))
  444.             (pattern "xpkmasterprefs.catalog")
  445.       ))
  446.         ))
  447.         (set #i (+ #i 1))
  448.       ))
  449.     ))
  450.  
  451.     (copyfiles
  452.       (source "")
  453.       (dest @default-dest)
  454.       (prompt #WHAT_STUFF)
  455.       (help @askoptions-help)
  456.       (choices "XpkMaster.guide")
  457.       (infos)
  458.       (noposition)
  459.       (confirm)
  460.     )
  461.   )
  462. )
  463.  
  464. ; ********************* xpk_Develop archive install **********************
  465.  
  466. (procedure P_install_develop
  467.   (
  468.     (set #p
  469.       (askoptions
  470.         (prompt #WHAT_DEVOP)
  471.         (help @askoptions-help)
  472.         (choices #DEV_AUTODOCS #DEV_HOTHELP #DEV_FD #DEV_ASM #DEV_C)
  473.         (default 4294967295)
  474.       )
  475.     )
  476.  
  477.     (set #dir (if(exists "INCLUDE:" (NOREQ)) "INCLUDE:" @default-dest))
  478.  
  479.     (if (IN #p 0)
  480.       (
  481.         (set #dir (askdir (prompt (#ASK_PATH2 #DEVT_AUTODOCS)) (help @askdir-help) (default #dir)))
  482.         (copyfiles (source (tackon #xpk_Develop "AutoDocs/")) (dest #dir) (all))
  483.       )
  484.     )
  485.     (if (IN #p 2)
  486.       (
  487.         (set #dir (askdir (prompt (#ASK_PATH2 #DEVT_FD_FILES)) (help @askdir-help) (default #dir)))
  488.         (copyfiles (source (tackon #xpk_Develop "Include/FD/")) (dest #dir) (all))
  489.       )
  490.     )
  491.     (if (IN #p 3)
  492.       (
  493.         (set #dir (askdir (prompt (#ASK_PATH2 #DEVT_ASM)) (help @askdir-help) (default #dir)))
  494.         (copyfiles (source (tackon #xpk_Develop "Include/ASM/")) (dest #dir) (all))
  495.       )
  496.     )
  497.     (if (IN #p 4)
  498.       (
  499.         (set #q
  500.           (askoptions
  501.             (prompt #WHAT_DEVOP)
  502.             (help @askoptions-help)
  503.             (choices #DEVC_PRAGMA #DEVC_GCC #DEVC_REDIRECT #DEVC_SAS
  504.               #DEVC_PROTO)
  505.             (default 1)
  506.           )
  507.         )
  508.         (set #dir (askdir (prompt (#ASK_PATH2 #DEVT_C)) (help @askdir-help) (default #dir)))
  509.         (copyfiles (source (tackon #xpk_Develop "Include/C/clib/")) (dest (tackon #dir "clib")) (all))
  510.         (copyfiles (source (tackon #xpk_Develop "Include/C/xpk/")) (dest (tackon #dir "xpk")) (all))
  511.     (if (IN #q 0)
  512.       (copyfiles (source (tackon #xpk_Develop "Include/C/pragma/")) (dest (tackon #dir "pragma")) (all))
  513.     )
  514.     (if (IN #q 1)
  515.       (copyfiles (source (tackon #xpk_Develop "Include/C/inline/")) (dest (tackon #dir "inline")) (all))
  516.     )
  517.     (if (IN #q 2)
  518.       (copyfiles (source (tackon #xpk_Develop "Include/Old-C/libraries/")) (dest (tackon #dir "libraries")) (all))
  519.     )
  520.     (if (IN #q 3)
  521.       (copyfiles (source (tackon #xpk_Develop "Include/OLD-C/pragmas/")) (dest (tackon #dir "pragmas")) (all))
  522.     )
  523.     (if (IN #q 4)
  524.       (copyfiles (source (tackon #xpk_Develop "Include/C/proto/")) (dest (tackon #dir "proto")) (all))
  525.     )
  526.       )
  527.     )
  528.     (if (IN #p 1)
  529.       (
  530.         (set #dir (askdir (prompt (#ASK_PATH2 #DEVT_HOTHELP)) (help @askdir-help) (default (if(exists "HOTHELP:" (NOREQ)) "HOTHELP:Projekte" @default-dest))))
  531.         (copyfiles (source (tackon #xpk_Develop "HotHelp/")) (dest #dir) (pattern "XPK#?"))
  532.       )
  533.     )
  534.   )
  535. )
  536.  
  537. ; ********************* xpk_Crypt archive install ************************
  538.  
  539. (procedure P_install_crypt
  540.   (
  541.     (set #i
  542.       (askoptions
  543.         (prompt #WHAT_LIBS)
  544.         (help @askoptions-help)
  545.         (choices "ENCO" "FEAL" "IDEA")
  546.         (default 4294967295)
  547.       )
  548.     )
  549.  
  550.     (set #n 0)
  551.     (while (set #thisfile (select #n "ENCO" "FEAL" "IDEA" ""))
  552.       (
  553.         (if (IN #i #n) (P_copylib #thisfile "" #xpk_Crypt))
  554.         (set #n (+ #n 1))
  555.       )
  556.     )
  557.  
  558.     (if (askbool (prompt #CRYPT_SOURCE) (help @askbool-help) (default 0))
  559.       (
  560.         (set #dir
  561.           (tackon
  562.             (askdir (prompt (#ASK_PATH #CRP_SOURCES "XpkSources/Crypt")) (help @askdir-help) (default @default-dest))
  563.             "XpkSources/Crypt"))
  564.         (if (NOT (exists #dir)) (makedir #dir (infos)))
  565.         (copyfiles (source (tackon #xpk_Crypt "source/")) (dest #dir) (all))
  566.       )
  567.     )
  568.   )
  569. )
  570.  
  571. ; ********************* xpk_Source archive install ***********************
  572.  
  573. (procedure P_install_source
  574.   (
  575.     (set #dir
  576.       (tackon
  577.         (askdir (prompt (#ASK_PATH #SRC_SRC_A_EXA "XpkSources")) (help @askdir-help) (default @default-dest))
  578.            "XpkSources"))
  579.         (if (NOT (exists #dir)) (makedir #dir (infos)))
  580.         (copyfiles (source #xpk_Source) (dest #dir) (all))
  581.   )
  582. )
  583.  
  584. ; ******************** here the stuff really starts **********************
  585.  
  586. (if (< @installer-version (+ (* 65536 42) 2))
  587.   ((message #INSTALLERVERSION) (exit (QUIET)))
  588. ) ; only V42 and up have ALL parameter
  589.  
  590. (if (< @installer-version (+ (* 65536 42) 9))
  591.   ((message #INSTALLERVERSION (ALL)) (exit (QUIET)))
  592. )
  593.  
  594. (set #xpk_Source  "/xpk_Source/")
  595. (set #xpk_Develop "/xpk_Develop/")
  596. (set #xpk_Crypt   "/xpk_Crypt/")
  597. (set #OS_version  (/ (getversion) 65536))
  598.  
  599. (message #GOINGIN)
  600. ; may be here comes an selection, where the decrunched archives are
  601.  
  602. (set #o
  603.   (askoptions
  604.     (prompt #WHAT_PROMPT)
  605.     (help @askoptions-help)
  606.     (choices #WHAT_USER
  607.       (if (exists #xpk_Develop) #WHAT_DEVELOP "")
  608.       (if (exists #xpk_Crypt)   #WHAT_CRYPT   "")
  609.       (if (exists #xpk_Source)  #WHAT_SOURCE  "")
  610.       (default 1)
  611.     )
  612.   )
  613. )
  614.  
  615. (if (IN #o 0) (P_install_user))
  616. (if (IN #o 1) (P_install_develop))
  617. (if (IN #o 2) (P_install_crypt))
  618. (if (IN #o 3) (P_install_source))
  619.  
  620. (exit (QUIET))
  621.  
  622.